Science Fair/Science Fair.iso/pc/working/main.dir/00111.ls

Text File | 1995-03-26 | 2.0 KB | 84 lines

on exitFrame
  global gStart, gEnd, gVisible
  set gFrame to (the timer / 20) + gStart
  if rollOver(41) then
    if gVisible <> 41 then
      set the visible of sprite 41 to 1
      if soundBusy(2) then
        sound stop 2
      end if
      if gVisible <> 0 then
        set the visible of sprite gVisible to 0
      end if
      set gVisible to 41
      exit
    end if
  else
    if rollOver(42) then
      if gVisible <> 42 then
        set the visible of sprite 42 to 1
        if soundBusy(2) then
          sound stop 2
        end if
        if gVisible <> 0 then
          set the visible of sprite gVisible to 0
        end if
        set gVisible to 42
        exit
      end if
    else
      if rollOver(43) then
        if gVisible <> 43 then
          set the visible of sprite 43 to 1
          if soundBusy(2) then
            sound stop 2
          end if
          if gVisible <> 0 then
            set the visible of sprite gVisible to 0
          end if
          set gVisible to 43
          exit
        end if
      else
        if rollOver(44) then
          if gVisible <> 44 then
            set the visible of sprite 44 to 1
            if soundBusy(2) then
              sound stop 2
            end if
            if gVisible <> 0 then
              set the visible of sprite gVisible to 0
            end if
            set gVisible to 44
            exit
          end if
        else
          if rollOver(45) then
            if gVisible <> 45 then
              set the visible of sprite 45 to 1
              if soundBusy(2) then
                sound stop 2
              end if
              if gVisible <> 0 then
                set the visible of sprite gVisible to 0
              end if
              set gVisible to 45
              exit
            end if
          else
            if gVisible <> 0 then
              set the visible of sprite gVisible to 0
            end if
            set gVisible to 0
          end if
        end if
      end if
    end if
  end if
  if gFrame > gEnd then
    go(gEnd)
  else
    go(gFrame)
  end if
end